home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / DIRED / GMHIST-A.ELC < prev    next >
Text File  |  1993-03-28  |  3KB  |  28 lines
  1. ;;; compiled by jwz@thalidomide on Tue Aug 18 17:12:04 1992
  2. ;;; from file /u/jwz/emacs19/lisp/dired/gmhist-app.el
  3. ;;; emacs version 19.2.2 Lucid.
  4. ;;; bytecomp version 2.08;  2-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!ê┬├ ½â┼¬ü╞\"ê ½î╟╚╔\"ê╟╩╦\"ê¬à╠╩═\"ê ½î╟╬╧\"ê╟╨╤\"ê¬è╠╬╥\"ê╠╨╥\"ê╠╙!ê╟╘╒\"ê╓╫╪┘#ê╓╫┌┘#ê╓╫█C#ê╓╫▌┘#ç" [require gmhist mapcar #[(x) "└    ┬\"ç" [gmhist-make-magic x regexp-history] 3] gmhist-emacs-19-p (keep-lines flush-lines how-many) (keep-lines flush-lines how-many occur) gmhist-replace-spec occur (gmhist-interactive "sList lines matching regexp: \nP" 'regexp-history) grep (list (read-with-history-in 'grep-history (concat "Run " (substring grep-command 0 (string-match "[     ]+" grep-command)) " (with args): "))) gmhist-make-magic grep-history shell-command (gmhist-interactive "sShell command: \nP" 'shell-history) shell-command-on-region (gmhist-interactive "r\nsShell command on region: \nP\np" 'shell-history) shell-history eval-expression compile (list (read-with-history-in 'compile-history "Compile command: ")) put compile-history backup t no-default initial-hist compile-command cursor-end] 4)
  14. (defvar tags-history nil "\
  15. History of tags.")
  16. (byte-code "└┬├Mç" [(lambda nil (fset 'find-tag-tag 'gmhist-find-tag-tag)) tags-load-hook gmhist-find-tag-tag #[(string) "└ ë½ï┬├    \"½à    ─┼O╞╟╚    #ê    B╔╟\n\")Cç" [find-tag-default defalt string-match "[:']$" 0 -1 put tags-history default read-with-history-in string] 5]] 2)
  17. (defvar gmhist-execute-extended-command-map (copy-keymap gmhist-completion-map) "\
  18. Keymap used inside `gmhist-execute-extended-command'.")
  19. (byte-code "└    ┬├#ê└    ─┼#ç" [define-key gmhist-execute-extended-command-map "" gmhist-execute-extended-command-exit " " gmhist-execute-extended-command-space] 4)
  20. (fset 'gmhist-execute-extended-command-exit #[nil "┴ܽå┬ ─\" ç┼ ç" [minibuffer-history-position 0 lookup-key minibuffer-local-must-match-map "" exit-minibuffer] 3 "\
  21. Maybe complete the minibuffer contents, and exit.
  22. Completes commands before exiting, but leaves command history items alone." nil])
  23. (fset 'gmhist-execute-extended-command-space #[nil "┴ܽå┬ ─\" ç─cç" [minibuffer-history-position 0 lookup-key minibuffer-local-must-match-map " "] 3 nil nil])
  24. (fset 'gmhist-execute-extended-command #[nil "└    ₧½Ñ    ┬ë½ÿ @ëó└=½ë ┬áê┬ë¬l Aë¼h┼┬    \"*┬┬╟    ╩┴╦╟#ê╩┴╠═#ê╩┴╬╟#ê╩┴╧#ê╩┴╤#ê╩┴╙╘#ê╩┴╒┬#ê╓┴½ç╪┘\"¬ü┌┬╟$*╘!½É▌╟\")¬ë▐!    B)ç" [gmhist-execute-extended-command command-history nil elt list delq cmd t minibuffer-history-read-only minibuffer-completion-confirm put cursor-end hist-ignore ".*" no-default completion-table obarray hist-map gmhist-execute-extended-command-map completion-predicate commandp backup read-with-history-in current-prefix-arg format "%s M-x " "M-x " prefix-arg this-command command-execute eval] 6 "\
  25. Read function name, then read its arguments and call it.
  26. You can use all gmhist commands (see variable gmhist-completion-map),
  27. especially \\<gmhist-completion-map>\\[gmhist-previous] to backup in command-history." nil])
  28.